dofile "lib/radical.lua"

function tile(s) 
  return const.path.gfx.."game/crush/"..s..".jpg"; 
end

function cm_tile(s) 
  return const.path.gfx.."game/common/"..s..".jpg"; 
end

function dxml(s)
  return const.path.dlg.."4-mad/crush/"..s..".xml";
end

crush = engine.state {
   
}

crush_player = musplayer.player {
   sfx("bam"):inside("start1")
  ,sfx("short_static"):inside("petr_dlg"):loop()
  ,mute():inside("start3")
}

main = engine.main {
   start        = chain_ {
                     episode_("5-crush")
                    ,musplayer_("crush_player")
                    ,walk_("start1")
                  }
  ,finish       = chain_ {
                    gamefile_("4-mad/crush.lua")
                  }
}


------------------------------------------------------------------------------------------
-- Start
------------------------------------------------------------------------------------------

start1 = pause {
   time         = 1000
  ,next         = "start2"
}

start2 = scene {
   tile         = tile "sun"
  ,bounds       = { nil, 480, 900 }
  ,dsc          = [[Казалось, здесь уже несколько дней не было дождя. Предвечернее солнце на чистом, словно выжженном небе светило так ярко, что
                    невольно хотелось прикрыть рукой глаза. Солнечный свет казался радиоактивным -- и никак не получалось избавиться от 
                    ощущения, что даже костюм четвертой степени защиты здесь бесполезен и совсем не спасает от излучения.^
                    Он уже набрал номер, когда заметил, что уровень сигнала держится на самом минимуме -- они на много миль уехали от ближайшего
                    работающего ретранслятора. Он поставил громкость динамика на максимум и прижал телефон к уху, но все равно 
                    с трудом мог {walk(petr_dlg)|разобрать слова} через толстый слой полиэстера.
                  ]]
}

petr_dlg = dialog {
   tile         = tile "sun"
  ,bounds       = { nil, 260 }
  ,dsc          = "-- Да... слушаю. Сте... ты?.. не слышу..."
  ,dlg          = dxml "petr"
}

start3 = scene {
   tile         = tile "sun"
  ,bounds       = { nil, 540, 900 }
  ,obj          = { "start3_phone", "start3_next" }
}

start3_phone = staticitem {
   dsc          = choose_ {
                     ["default"] = [[Шум помех внезапно оборвался, и телефон замолчал. На экране высветилось {сообщение об ошибке}.]]
                    ,["start3_phone._seen"] = 
                        [[На маленьком черно-белом экранчике телефона отображается -- "Ошибка связи! Не сигнала!".]]
                  }
  ,act          = refresh
}

start3_next = staticitem {
   dsc          = [[Набрать номер повторно не получается. Остается лишь {надеяться} на то, что Петр его все-таки понял и действительно сможет
                    сделать что-нибудь.]]
  ,act          = walk_("carfar")
  ,cnd          = if_("start3_phone._seen")
}


------------------------------------------------------------------------------------------
-- Nearcar
------------------------------------------------------------------------------------------

carfar = scene {
   dsc          = [[]]
  ,nav          = {
                     up = vw("К разрушенным домам"):
                        noway("Степанов сомневается, что уровня защиты его комбинезона будет достаточно. Не стоит идти туда без счетчика.")
                    ,down = vw("Вернуться к машине", "nearcar1")
                  }
}

carnear1 = scene {
   dsc          = [[]]
  ,nav          = {
                     right = vw("К разрушенным домам"):
                        noway("Степанов сомневается, что уровня защиты его комбинезона будет достаточно. Не стоит идти туда без счетчика.")
                    ,left = vw("Обойти машину с другой стороны", "carnear2")
                    ,down = vw("Отойти на пригорок", "carfar")
                    ,up = vw("Залезть в кабину", "carinside")
                  }
}

car = staticitem {
   dsc          = [[]]
  ,act          = [[]]
  ,showonce     = true
}

worker = staticitem {
   dsc          = [[]]
  ,act          = walk_("worker_dlg")
}

worker_dlg = dialog {

}

carnear2 = scene {
   dsc          = [[]]
  ,nav          = {
                    right = vw("Обойти машину", "carnear1")
                  }
}

stepanov = staticitem {
   dsc          = [[]]
  ,act          = walk_("stepanov_dlg")
}

stepanov_dlg = dialog {

}

carinside = scene {
   dsc          = [[]]
  ,nav          = {
                    down = vw("Вылезти из машины", "carnear1")
                  }
}

simpleradar = item {
   nam          = "Счетчик Гейгера"
  ,img          = ico "radar"
  ,activate     = chain_ { "Устройство исправно, заряд батареи почти полный. Надо включить его чуть позднее.", refresh }
}